<!--#include file="Firewall.asp"-->
<!--#include file="Ini.asp"-->
<!--#include file="../AspLib/Functions.asp"-->

<%
sAcao = Request("ACAO") 
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open sCo1, sCo2, sCo3

ROTEIRO = Request("ROTEIRO")
ESCOLA = Request("ESCOLA")
OBS = TRIM(REQUEST("OBS"))
DIVULGADOR = TRIM(REQUEST("DIVULGADOR"))

If sACAO <> "E" Then
  AROTEIRO = Request("AROTEIRO")
  ATIVIDADE = Request("ATIVIDADE")
  MROTEIRO=DireitizaString(MONTH(ROTEIRO),2,"0") &"/" & DireitizaString(DAY(ROTEIRO),2,"0") &"/" & YEAR(ROTEIRO)
  MAROTEIRO=DireitizaString(MONTH(AROTEIRO),2,"0") &"/" & DireitizaString(DAY(AROTEIRO),2,"0") &"/" & YEAR(AROTEIRO)

  sEMISSAO=DireitizaString(MONTH(NOW()),2,"0") &"/" & DireitizaString(DAY(NOW()),2,"0") &"/" & YEAR(NOW()) &" " & TIME()
  
  If  sACAO = "I" then
    sSql = "Insert Into ESCOLA_ROTEIRO(COD_ESCOLA,DT_ROTEIRO,DIVULGADOR,ATIVIDADE,OBS) " &_
           " VALUES("& ESCOLA & ",'"& MROTEIRO &"','"& Session("Usuario") &"','"& ATIVIDADE &"','"&OBS&"') "
'RESPONSE.WRITE SSQL
'RESPONSE.END
    Conn.Execute(sSql)
  ELSE
    sSql = "Update ESCOLA_ROTEIRO Set  DT_ROTEIRO= '"& MROTEIRO &"'" &_
           ",ATIVIDADE='"& ATIVIDADE &"'" &_
           ",MOVIMENTADO='"& SEMISSAO &"'" &_
		   ",OBS='"& OBS &"'" &_
           " Where COD_ESCOLA = " & ESCOLA &" AND DT_ROTEIRO='" & MAROTEIRO & "' AND DIVULGADOR = '"&DIVULGADOR&"'"
'RESPONSE.WRITE SSQL
'RESPONSE.END
    Conn.Execute(sSql)	
  End If
Else
     sSql="Delete From ESCOLA_ROTEIRO Where COD_ESCOLA = " & ESCOLA &" AND DT_ROTEIRO='" & ROTEIRO & "' AND DIVULGADOR = '"&DIVULGADOR&"'"
     Conn.Execute(sSql)
End If	
Conn.Close : Set Conn = Nothing
Response.Redirect "palm_escola_roteiros.asp?ESCOLA=" & ESCOLA
%>